home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 22
/
Cream of the Crop 22.iso
/
editor
/
jmedia20.zip
/
JMDEMO1.EXE
/
VIEWER.J
< prev
next >
Wrap
Text File
|
1995-01-03
|
2KB
|
79 lines
'viewer.j
'Demostrates how to create a simple file viewer
KillMouseFields
'Create a custom background pattern
FillPattern 194 180 150 145 168 162 165 203 LightBlue
Bar 0 0 639 349
'break screen into 100x100 area
SetDimensions 650 350 100 100
'Draw metalic window and option box
'Must provide full path for wizard filename
'eg. Wizard 5 10 +96 +85 c:\jdraw\metwin.wiz
' Wizard 5 97 +96 +12 c:\jdraw\box1.wiz
Wizard 5 10 +96 +85 metwin.wiz
Wizard 5 97 +96 +12 box1.wiz
'Place window description
Color DarkGRay
TextXY 7 12 SIMPLE FILE VIEWER
'Set the button style flags
ButtonStyle.Width 90
ButtonStyle.Height 20
ButtonStyle.Orient 2
ButtonStyle.BevSize 2
ButtonStyle.DFore 2
ButtonStyle.DBack 0
ButtonStyle.Bright 15
ButtonStyle.Dark 8
ButtonStyle.Surface 5
ButtonStyle.GroupNum 0
ButtonStyle.UlineCol 14
ButtonStyle.CornerCol 7
ButtonStyle.IconButton OFF
ButtonStyle.PlainButton ON
ButtonStyle.ClipButton OFF
ButtonStyle.Mouse ON
ButtonStyle.Invertable OFF
ButtonStyle.Reset OFF
ButtonStyle.Chisel OFF
ButtonStyle.Recess OFF
ButtonStyle.Shadow ON
ButtonStyle.Stamp OFF
ButtonStyle.Bevel ON
ButtonStyle.Underline ON
ButtonStyle.HotIcon OFF
ButtonStyle.ADJ OFF
ButtonStyle.RadioGroup OFF
ButtonStyle.Sunken ON
ButtonStyle.CheckBoxGroup OFF
ButtonStyle.HighlightKey ON
ButtonStyle.Explode OFF
ButtonStyle.LeftJustify OFF
ButtonStyle.RightJustify OFF
ButtonStyle
ButtonStyle.Selected OFF
'Paste the various button commands
Button 10 100 0 0 u <>PAGE UP<>PGUP
Button 28 100 0 0 d <>PAGE DOWN<>PGDOWN
Button 46 100 0 0 h <>HOME<>HOME
Button 64 100 0 0 e <>END<>END
Button 82 100 0 0 x <>EXIT<>EXIT^MEXIT^M
'Create a text window that browser will be using
TextWindow 6 7 +78 +26 OFF 1
'Set text window background anf foreground colors
TextBackGround LightGray
TextColor Black
'Start browser
Browse catalog.txt